---
title: "KTH Divisions in ABM"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: fill
    source: embed
---

Divisions {.tabset .tabset-fade}
-------------------------------------

### Divisions

Data from KTH Directory API. Click a node for details (opens KTH website), scroll to zoom, drag to pan. Nodes can be dragged around.

```{r}

library(bibliomatrix)
library(dplyr)
library(DT)

fn <- abm_graph_divisions() 

fn

#htmlwidgets::saveWidget(fn, "~/abm-divisions.html")
#browseURL("~/abm-divisions.html")

```

### Department stats

```{r}
ds <- con_bib("sqlite") %>% tbl("division_stats") %>% collect()
datatable(data = ds %>% arrange(nd_researchers, n_pubs) %>% select(starts_with("n"), everything()))
```

### Table

```{r}

datatable(data = abm_divisions())
```